set oRoot = application.activeproject.activescene.root
set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.activeprimitive.geometry
for each oPoint in oGeometry.Points
        set oNormal =  oPoint.Normal
        logmessage "Point [" & oPoint.Index & "].normal : " & _
                        oNormal.x & ", " & _
                        oNormal.y & ", " & _
                        oNormal.z 
next